Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As _
              System.EventArgs) Handles btnCalc.Click
  Dim MyVariable As Integer   ' tworzymy jak zmienn

  MyVariable = 10
  Dim MyVariable As Integer   ' i robimy to jeszcze raz

End Sub
